home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_guile.idb / usr / freeware / src / guile / patches.z / patches
Encoding:
Text File  |  1999-04-16  |  2.5 KB  |  75 lines
  1. --- ./libguile/tags.h    Mon Oct 19 23:46:53 1998
  2. +++ ../guile-1.3/./libguile/tags.h    Tue Mar 23 14:59:28 1999
  3. @@ -277,7 +277,7 @@
  4.  
  5.  
  6.  #define SCM_CELLP(x)     (!SCM_NCELLP(x))
  7. -#define SCM_NCELLP(x)     ((sizeof(scm_cell)-1) & (int)(x))
  8. +#define SCM_NCELLP(x)     ((sizeof(scm_cell)-1) & (long)(x))
  9.  
  10.  /* See numbers.h for macros relating to immediate integers.
  11.   */
  12. --- ./libguile/snarf.h    Mon Oct 19 23:42:09 1998
  13. +++ ../guile-1.3/./libguile/snarf.h    Tue Mar 23 14:29:42 1999
  14. @@ -109,6 +109,6 @@
  15.  %%%    C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, init_val)
  16.  #endif
  17.  
  18. -#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) SCM_VCELL_INIT(C_NAME, SCHEME_NAME, scm_long2num(VALUE));
  19. +#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) SCM_VCELL_INIT(C_NAME, SCHEME_NAME, scm_long2num(VALUE))
  20.  
  21.  #endif /* LIBGUILE_SNARF_H */
  22. --- ./libguile/ports.h    Mon Oct 19 23:36:31 1998
  23. +++ ../guile-1.3/./libguile/ports.h    Tue Mar 23 14:21:22 1999
  24. @@ -198,6 +198,6 @@
  25.  #ifdef GUILE_DEBUG
  26.  extern SCM scm_pt_size SCM_P ((void));
  27.  extern SCM scm_pt_member SCM_P ((SCM member));
  28. -#endif GUILE_DEBUG
  29. +#endif /* GUILE_DEBUG */
  30.  
  31.  #endif  /* PORTSH */
  32. --- ./libguile/procprop.c    Mon Oct 19 23:37:40 1998
  33. +++ ../guile-1.3/./libguile/procprop.c    Tue Mar 23 15:02:30 1999
  34. @@ -54,6 +54,7 @@
  35.  
  36.  static SCM
  37.  scm_i_procedure_arity (proc)
  38. +     SCM proc;
  39.  {
  40.    int a = 0, o = 0, r = 0;
  41.   loop:
  42. --- ./libguile/scmsigs.c    Mon Oct 19 23:40:34 1998
  43. +++ ../guile-1.3/./libguile/scmsigs.c    Tue Mar 23 15:16:45 1999
  44. @@ -210,8 +210,8 @@
  45.      query_only = 1;
  46.    else if (SCM_INUMP (handler))
  47.      {
  48. -      if (SCM_INUM (handler) == (int) SIG_DFL
  49. -      || SCM_INUM (handler) == (int) SIG_IGN)
  50. +      if (SCM_INUM (handler) == (long) SIG_DFL
  51. +      || SCM_INUM (handler) == (long) SIG_IGN)
  52.      {
  53.  #ifdef HAVE_SIGACTION
  54.        action.sa_handler = (SIGRETTYPE (*) (int)) SCM_INUM (handler);
  55. @@ -274,7 +274,7 @@
  56.      orig_handlers[csig] = old_action;
  57.      }
  58.    if (old_action.sa_handler == SIG_DFL || old_action.sa_handler == SIG_IGN)
  59. -    old_handler = SCM_MAKINUM ((int) old_action.sa_handler);
  60. +    old_handler = SCM_MAKINUM ((long) old_action.sa_handler);
  61.    SCM_ALLOW_INTS;
  62.    return scm_cons (old_handler, SCM_MAKINUM (old_action.sa_flags));
  63.  #else
  64. --- ./ltconfig    Wed Jul 29 14:13:47 1998
  65. +++ ../guile-1.3/./ltconfig    Mon Mar 22 16:33:16 1999
  66. @@ -802,7 +802,7 @@
  67.      ;;
  68.  
  69.    irix5* | irix6*)
  70. -    archive_cmds='$LD -shared -o $lib -soname $soname -set_version $verstring$libobjs'
  71. +    archive_cmds='$LD -shared -o $lib -soname $soname -set_version $verstring$libobjs$deplibs'
  72.      hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
  73.      ;;
  74.  
  75.